home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / amos / amoslist-0195.lzh / AMOSLIST / text0193.txt < prev    next >
Encoding:
Text File  |  1995-02-01  |  1.2 KB  |  50 lines
  1. here is an improved (shorter) version of the RQB procedure sent :).
  2.  
  3. Procedure 
  4. RQB[PAPR,HILITE,SHADE,TXT,INFO$,BUTTONS,BTCOL,BUTTON1$,BUTTON2$,BUTTON
  5.    
  6.    Dim TXT(4),COORDS(4),BUTTON$(4)
  7.    For X=1 To 4
  8.       Read TXT(X),COORDS(X)
  9.    Next 
  10.    Data 30,481,0,241,10,321,20,401
  11.    BUTTON$(1)=BUTTON1$ : BUTTON$(2)=BUTTON2$
  12.    BUTTON$(3)=BUTTON3$ : BUTTON$(4)=BUTTON4$
  13.    DIAF=69
  14.    
  15.    Wind Open 99,160,50,40,10,2
  16.    Scroll Off 
  17.    Paper PAPR : Pen TXT
  18.    Clw : Curs Off 
  19.    Border 2,PAPR,HILITE
  20.    Ink SHADE
  21.    Draw 486,51 To 486,129
  22.    Draw 487,51 To 487,129
  23.    Draw 169,129 To 487,129
  24.    Box 173,53 To 482,109
  25.    Ink HILITE : Polyline 482,54 To 482,109 To 174,109
  26.    
  27.    Centre Left$(INFO$,37)
  28.    
  29.    For X=1 To BUTTONS
  30.       Paper PAPR : Pen BTCOL
  31.       Locate TXT(X),7 : Print Left$(BUTTON$(X)+"        ",8)
  32.       Ink HILITE
  33.       Box COORDS(X)-DIAF,112 To COORDS(X),123
  34.       Ink SHADE
  35.       Polyline COORDS(X),113 To COORDS(X),123 To COORDS(X)-DIAF+1,123
  36.       Set Zone X,COORDS(X)-DIAF,112 To COORDS(X),123
  37.    Next 
  38.  
  39.    Repeat 
  40.       Z=Mouse Zone
  41.    Until Mouse Key<>0 and Z<>0
  42.    
  43.    Scroll On 
  44.    Wind Close 
  45.    
  46. End Proc[Str$(Z)]
  47.  
  48.                                     Gregory.
  49.  
  50.